home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / MarkzScout™ 14-day trial / Scripts / Fonts.M1S < prev    next >
Encoding:
Text File  |  1999-02-05  |  471 b   |  28 lines  |  [TEXT/MSCT]
  1. //
  2. // Fonts.M1S: show font request list for document
  3. //
  4.  
  5. //
  6. // *************************************
  7. // Procedures
  8. // *************************************
  9. // 
  10. proc fontRequestProc
  11.   print it.name
  12. endproc
  13.  
  14. // 
  15. // Execute a procedure for all images
  16. //
  17. theJob = it
  18.  
  19. print ""
  20. print "Complete Font Request List for " + theJob.name
  21. print ""
  22.  
  23. on font_request do fontRequestProc
  24. scan theJob links uses,contains,overlaps,defines
  25.  
  26. print "---------------------------------------"
  27.  
  28.